Option Explicit
Sub I_Sample015()
    Dim mySht           As Worksheet
    Dim myTmpAr(1 To 3) As Variant
    Set mySht = Worksheets(1)               'N
    With mySht.PageSetup
        myTmpAr(1) = .Zoom
        myTmpAr(2) = .FitToPagesWide
        myTmpAr(3) = .FitToPagesTall
        .Zoom = False
        .FitToPagesWide = 1                 ']w
        .FitToPagesTall = 1
        SendKeys "C"
        mySht.PrintPreview
        SendKeys "{TAB 2}^{UP} {TAB 6}{ENTER}"
        Application.Dialogs(xlDialogPageSetup).Show
        MsgBox .Zoom
        .Zoom = myTmpAr(1)
        .FitToPagesWide = myTmpAr(2)
        .FitToPagesTall = myTmpAr(3)
    End With
    Set mySht = Nothing                     '
End Sub

